home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_12837.txt < prev    next >
Text File  |  1990-08-24  |  10KB  |  427 lines
  1. -- card: 12837 from stack: in.0
  2. -- bmap block id: 5103
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: Introduction to
  6. ----- HyperTalk script -----
  7. on goPrev
  8.   global theFrame,whatSpace
  9.   set cursor to none
  10.   subtract 1 from theFrame
  11.   if theFrame = 3 then
  12.     go prev
  13.     go next
  14.   else if theFrame = 7 then
  15.     lock screen
  16.     put "¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°" into whatSpace
  17.     put "¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°√•" & return & "¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°¬°‚à´" into cd fld "ManFld"
  18.     put empty into cd fld "HFld"
  19.     hide btn "HMask"
  20.     put empty into cd fld "HFld2"
  21.     put theFrame - 1 into n
  22.     hide cd fld ("text" & theFrame)
  23.     show cd fld ("text" & n)
  24.   else
  25.     lock screen
  26.     put theFrame - 1 into n
  27.     hide cd fld ("text" & theFrame)
  28.     show cd fld ("text" & n)
  29.   end if
  30.   unlock screen with wipe left
  31. end goPrev
  32.  
  33.  
  34.  
  35.  
  36.  
  37. -- Hidden cd fld "whatChar" holds the order of characters
  38. --- for font animation of man walking
  39. -- Loc of cd fld "manFld" (the fld in which animation occurs): 147,146
  40. -- Rect of cd fld "manFld": 112,65,406,227
  41. -- Hidden btn "HMask" hides "H" during animation
  42.  
  43. on openCard
  44.   resetElmo
  45.   walkIn
  46. end openCard
  47.  
  48.  
  49. on walkIn
  50.   global WalkDelay, whatSpace
  51.  
  52.   --    this where the Elmo walks in
  53.   set the cursor to none
  54.   put "¬°" into whatSpace
  55.   repeat for 3
  56.     repeat with j = 1 to 4
  57.       put whatSpace & (item 1 of line j of cd fld "whatChar") & return & whatSpace & (item 2 of line j of cd fld "whatChar") into cd fld "manFld"
  58.       if j = 2 then put "¬°¬°¬°¬°¬°" after whatSpace
  59.       wait walkDelay
  60.     end repeat
  61.     put "¬°" after whatSpace
  62.     repeat with j = 5 to 8
  63.       put whatSpace & (item 1 of line j of cd fld "whatChar") & return & whatSpace & (item 2 of line j of cd fld "whatChar") into cd fld "manFld"
  64.       if j = 6 then put "¬°¬°¬°¬°¬°" after whatSpace
  65.       wait walkDelay
  66.     end repeat
  67.     put "¬°" after whatSpace
  68.   end repeat
  69.  
  70.   -- Elmo says hello
  71.   put whatSpace & "y" & return & whatSpace & "z" into cd fld "manFld"
  72.   wait 10
  73.   put whatSpace & "√•" & return & whatSpace & "‚à´" into cd fld "manFld"
  74.   wait 20
  75.   repeat for 4
  76.     delete last char of whatSpace
  77.   end repeat
  78.   put whatSpace & "¬©Àô" & return & whatSpace & "‚àÜÀö" into cd fld "manFld"
  79.   show cd fld "text1"
  80.   wait 60
  81.  
  82.   -- Elmo tells us what's up
  83.   repeat for 4
  84.     put "¬°" after whatSpace
  85.   end repeat
  86.   hide cd fld "text1"
  87.   put whatSpace & "√•" & return & whatSpace & "‚à´" into cd fld "manFld"
  88.   wait 40
  89.   show cd fld "text2"
  90.   setArrows false, true
  91.  
  92. end walkIn
  93.  
  94. -- This is the rest of Elmo's conversation
  95. -- Frames 3 to 7 are initiated by mouse clicks
  96. on ElmoTalks
  97.   global theFrame, whatSpace
  98.   lock screen
  99.   set cursor to none
  100.   setArrows true, true
  101.   if theFrame ‚⧠5 then
  102.     put theFrame - 1 into n
  103.     hide cd fld ("text" & n)
  104.     show cd fld ("text" & theFrame)
  105.   else
  106.     if theFrame = 6 then
  107.       hide cd fld "text5"
  108.       show cd fld "text6"
  109.     else
  110.       if theFrame = 7 then
  111.         unlock screen with dissolve
  112.         hide cd fld "text6"
  113.         wait 30
  114.         moveH
  115.         --   repeat for 7
  116.         --     delete last char of whatSpace
  117.         --   end repeat
  118.         put whatSpace into tempSpace
  119.         repeat for 7
  120.           delete last char of tempSpace
  121.         end repeat
  122.         put tempSpace & "√ßΔí" & return & tempSpace & "‚àÇŒ©" into cd fld "manFld"
  123.         wait 30
  124.         show cd fld "text7"
  125.       else
  126.         -- start moving through the following cards
  127.         hide cd fld "text7"
  128.         resetElmo
  129.         setArrows true, true
  130.         go to cd "H"
  131.         unlock screen with dissolve
  132.         wait 20
  133.         visual dissolve
  134.         go to cd "H table"
  135.         showText
  136.       end if
  137.     end if
  138.   end if
  139.   add 1 to theFrame
  140.   setArrows true, true
  141.   unlock screen with wipe right
  142. end ElmoTalks
  143.  
  144.  
  145. -- This handler resets the cd
  146. on resetElmo
  147.   global theFrame
  148.   set cursor to none
  149.   put 3 into theFrame
  150.   hide btn "HMask"
  151.   setArrows false, false
  152.   put empty into cd fld "HFld"
  153.   put empty into cd fld "HFld2"
  154.   put empty into cd fld "manFld"
  155.   repeat with n = 1 to 7
  156.     hide cd fld ("text" & n)
  157.   end repeat
  158. end resetElmo
  159.  
  160.  
  161.  
  162. -- This handler moves the "H" so it ends up next to Elmo
  163. on moveH
  164.   set cursor to none
  165.   put "A" into cd fld "HFld"
  166.   show btn "HMask"
  167.   put empty into cd fld "HFld2"
  168.  
  169.   repeat for 3
  170.     set textStyle of cd fld "HFld" to bold
  171.     set textStyle of cd fld "HFld" to outline
  172.   end repeat
  173.  
  174.   wait 30
  175.   put "B" into cd fld "HFld"
  176.   wait 30
  177.   put "A" into cd fld "HFld"
  178.   wait 50
  179.   put "B" into cd fld "HFld"
  180.   wait 40
  181.  
  182.   put "A" into cd fld "HFld"
  183.   wait 15
  184.   put "B" into cd fld "HFld"
  185.   put "C" into cd fld "HFld"
  186.   wait 30
  187.   put "D" into cd fld "HFld"
  188.   wait 40
  189.  
  190.   put "A" into cd fld "HFld"
  191.   wait 30
  192.   put "D" into cd fld "HFld"
  193.   wait 20
  194.   put empty into cd fld "HFld"
  195.   put "E" into cd fld "HFld2"
  196.   wait 10
  197.   put "A" into cd fld "HFld2"
  198. end moveH
  199.  
  200. on closeCard
  201.   resetElmo
  202. end closeCard
  203.  
  204.  
  205.  
  206. -- part 15 (button)
  207. -- low flags: 80
  208. -- high flags: 4001
  209. -- rect: left=4 top=221 right=263 bottom=43
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Hmask
  218.  
  219.  
  220. -- part 1 (field)
  221. -- low flags: 01
  222. -- high flags: 2000
  223. -- rect: left=-112 top=65 right=227 bottom=406
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 0
  227. -- font id: 214
  228. -- text size: 80
  229. -- style flags: 0
  230. -- line height: 80
  231. -- part name: manFld
  232.  
  233.  
  234. -- part 2 (field)
  235. -- low flags: 01
  236. -- high flags: 0000
  237. -- rect: left=223 top=150 right=228 bottom=286
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 0
  241. -- font id: 208
  242. -- text size: 75
  243. -- style flags: 2048
  244. -- line height: 78
  245. -- part name: HFld2
  246.  
  247.  
  248. -- part 3 (field)
  249. -- low flags: 01
  250. -- high flags: 0000
  251. -- rect: left=3 top=206 right=275 bottom=86
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 0
  255. -- font id: 208
  256. -- text size: 75
  257. -- style flags: 2048
  258. -- line height: 78
  259. -- part name: HFld
  260.  
  261.  
  262. -- part 5 (field)
  263. -- low flags: 81
  264. -- high flags: 0000
  265. -- rect: left=261 top=97 right=116 bottom=310
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 0
  269. -- font id: 174
  270. -- text size: 14
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: text1
  274.  
  275.  
  276. -- part 6 (field)
  277. -- low flags: 81
  278. -- high flags: 0000
  279. -- rect: left=118 top=67 right=213 bottom=237
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 0
  283. -- font id: 174
  284. -- text size: 14
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: text2
  288.  
  289.  
  290. -- part 7 (field)
  291. -- low flags: 81
  292. -- high flags: 0000
  293. -- rect: left=118 top=66 right=224 bottom=283
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 0
  297. -- font id: 174
  298. -- text size: 14
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: text3
  302.  
  303.  
  304. -- part 8 (field)
  305. -- low flags: 81
  306. -- high flags: 0000
  307. -- rect: left=118 top=67 right=214 bottom=263
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 0
  311. -- font id: 174
  312. -- text size: 14
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: text4
  316.  
  317.  
  318. -- part 9 (field)
  319. -- low flags: 81
  320. -- high flags: 0000
  321. -- rect: left=118 top=65 right=213 bottom=254
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 0
  325. -- font id: 174
  326. -- text size: 14
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: text5
  330.  
  331.  
  332. -- part 10 (field)
  333. -- low flags: 81
  334. -- high flags: 0000
  335. -- rect: left=118 top=69 right=218 bottom=259
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 0
  339. -- font id: 174
  340. -- text size: 14
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: text6
  344.  
  345.  
  346. -- part 11 (field)
  347. -- low flags: 81
  348. -- high flags: 0000
  349. -- rect: left=350 top=81 right=219 bottom=444
  350. -- title width / last selected line: 0
  351. -- icon id / first selected line: 0 / 0
  352. -- text alignment: 0
  353. -- font id: 174
  354. -- text size: 14
  355. -- style flags: 0
  356. -- line height: 16
  357. -- part name: text7
  358.  
  359.  
  360. -- part 14 (field)
  361. -- low flags: 81
  362. -- high flags: 0007
  363. -- rect: left=445 top=63 right=264 bottom=510
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 0 / 0
  366. -- text alignment: 0
  367. -- font id: 3
  368. -- text size: 9
  369. -- style flags: 0
  370. -- line height: 12
  371. -- part name: whatChar
  372.  
  373.  
  374. -- part contents for card part 5
  375. ----- text -----
  376. Hello.
  377.  
  378. -- part contents for card part 6
  379. ----- text -----
  380. I‚Äôm here to introduce you to HyperCard 2.0 and the world of Hypermedia.
  381.  
  382. Click the right arrow to learn more.
  383.  
  384. -- part contents for card part 7
  385. ----- text -----
  386. Hypermedia is all about using computers & software‚Äîand the text, graphics, animations, and sound that they can 
  387. produce‚Äîto structure 
  388. & present information.
  389.  
  390. (Click the right arrow).
  391.  
  392. -- part contents for card part 8
  393. ----- text -----
  394. Because Hypermedia take advantage of what computers can do, they allow you 
  395. to structure or move through information based on your curiosity...instead of in a linear path.
  396.  
  397. -- part contents for card part 9
  398. ----- text -----
  399. This is important because people learn in all different kinds of ways‚Äîbut mostly through making personal associations between different bits of information.
  400.  
  401. -- part contents for card part 10
  402. ----- text -----
  403. Let me give you a personal example of associative thinking:  the letter ‚ÄúH,‚Äù like the one that starts the word 
  404. ‚ÄúHyperCard‚Äù below, reminds me of something....
  405.  
  406. -- part contents for card part 11
  407. ----- text -----
  408. The letter ‚ÄúH‚Äùalways makes me think of the end of a table...
  409. (Click the right arrow).
  410.  
  411.  
  412. -- part contents for card part 14
  413. ----- text -----
  414. c,d
  415. ef,gh
  416. i,j
  417. k,l
  418. o,p
  419. qr,st
  420. u,v
  421. w,x
  422. y,z
  423. o,p
  424. å,∫
  425. √ßΔí,‚àÇŒ©
  426. ©˙,∆˚
  427.